BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Ss-Sz/Stack Starter ß.979/Stack Starter fl.979/card_10120.txt

Text File | 1989-07-29 | 45.8 KB | 2,074 lines

-- card: 10120 from stack: in.979
-- bmap block id: 2916
-- flags: 0000
-- background id: 2295
-- name: pushbuttons and switches


-- part 73 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=27 top=99 right=114 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=123 right=135 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 5006 / 5006
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5006 then
    set icon of me to 5007
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5006
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=144 right=156 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 5010 / 5010
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5010 then
    set icon of me to 5011
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5010
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=165 right=177 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 5014 / 5014
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5014 then
    set icon of me to 5015
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5014
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=188 right=200 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 5018 / 5018
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5018 then
    set icon of me to 5019
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5018
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=211 right=234 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 5022 / 5022
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5022 then
    set icon of me to 5023
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5022
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=122 right=134 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 5008 / 5008
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5008 then
    set icon of me to 5009
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5008
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=143 right=155 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 5012 / 5012
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5012 then
    set icon of me to 5013
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5012
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=164 right=176 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 5016 / 5016
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5016 then
    set icon of me to 5017
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5016
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=187 right=201 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 5020 / 5020
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5020 then
    set icon of me to 5021
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5020
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=72 top=212 right=235 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 5022 / 5022
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5022 then
    set icon of me to 5023
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5022
    play "Click"
    --instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=30 top=246 right=296 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 4188 / 4188
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=71 top=246 right=296 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 4179 / 4179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp




-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=127 top=98 right=114 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 5058 / 5058
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5056 then
    set icon of me to 5058
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5056
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=152 top=98 right=114 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 5056 / 5056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5056 then
    set icon of me to 5057
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5056
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=97 right=114 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 5054 / 5054
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 5054 then
    set icon of me to 5055
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5054
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=120 right=141 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 5028 / 5028
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 5028 then
    set icon of me to 5029
    play "Click"
    set icon of me to 5030
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5029
    play "Click"
    set icon of me to 5028
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=146 right=163 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 4007 / 4007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hello Switch
----- HyperTalk script -----
on mouseUp
  if icon of me is 4005 then
    set icon of me to 4007
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4005
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=168 right=187 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 5003 / 5003
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5003 then
    set icon of me to 5005
    play "Switch"
    set icon of me to 5004
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5005
    play "Switch"
    set icon of me to 5003
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=128 top=203 right=224 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 5003 / 5003
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OFF
----- HyperTalk script -----
on mouseDown
  if icon of me is 5003 then
    set the name of me to "ON"
  else set the name of me to "OFF"
  set icon of me to 5001
end mouseDown

on mouseLeave              --this event allows you to change your mind
  if icon of me is 5001 then        --Thanks Nich de Paul for the idea
    if the short name of me is "OFF" then
      set the name of me to "ON"
      set icon of me to 5004
      play "Switch"
    else
      set the name of me to "OFF"
      set icon of me to 5003
      play "Switch"
    end if
  end if
end mouseLeave

on mouseUp
  if the short name of me is "ON" then
    set icon of me to 5004
    play "Switch"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5003
    play "Switch"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=119 right=141 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 5051 / 5051
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5051 then
    set icon of me to 5052
    play "click"
    set icon of me to 5053
    play "click" fe
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5052
    play "click"
    set icon of me to 5051
    play "click" fe
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=146 right=163 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 4006 / 4006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hello Switch
----- HyperTalk script -----
on mouseUp
  if icon of me is 4004 then
    set icon of me to 4005
    play "Click"
    set icon of me to 4006
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4005
    play "Click"
    set icon of me to 4004
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=168 right=187 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 5002 / 5002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 5000 then
    set icon of me to 5005
    play "Click"
    set icon of me to 5002
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5005
    play "Click"
    set icon of me to 5000
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=203 right=224 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 5000 / 5000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OFF
----- HyperTalk script -----
on mouseDown
  if icon of me is 5000 then
    set the name of me to "ON"
  else set the name of me to "OFF"
  set icon of me to 5001
  play "Click"
end mouseDown

on mouseLeave              --this event allows you to change your mind
  if icon of me is 5001 then     --Thanks Nich de Paul for the idea
    --set icon of me to 5001
    if the short name of me is "OFF" then
      set the name of me to "ON"
      set icon of me to 5002
      play "Click"
    else
      set the name of me to "OFF"
      set icon of me to 5000
      play "Click"
    end if
  end if
end mouseLeave

on mouseUp
  if the short name of me is "ON" then
    set icon of me to 5002
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5000
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp




-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=125 top=253 right=286 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 5048 / 5048
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5048 then
    set icon of me to 5049
    play "click"
    set icon of me to 5050
    play "click" fe
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5049
    play "click"
    set icon of me to 5048
    play "click" fe
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=166 top=254 right=286 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 5031 / 5031
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5031 then
    set icon of me to 5032
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5031
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 27 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=225 top=101 right=146 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 23237 / 23237
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Toggle OFF
----- HyperTalk script -----
on mouseUp
  if icon of me is 17213 then
    set icon of me to 23237
    play "Click"
    set name of me to "Toggle OFF"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 17213
    play "Click"
    set textalign of me to left
    set name of me to "Toggle ON"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp




-- part 28 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=220 top=101 right=146 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 17213 / 17213
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 17213 then
    set icon of me to 23237
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 17213
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp




-- part 29 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=269 top=101 right=146 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 17213 / 17213
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 17213 then
    set icon of me to 23237
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 17213
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp




-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=145 right=178 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 6872 / 6872
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 16693 then
    set icon of me to 6872
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 16693
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp







-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=195 right=212 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 5036 / 5036
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 5036 then
    set icon of me to 5037
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5036
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=195 right=212 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 5038 / 5038
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5038 then
    set icon of me to 5039
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5038
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=269 top=195 right=212 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 5040 / 5040
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5040 then
    set icon of me to 5041
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5040
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=221 right=233 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 5042 / 5042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5042 then
    set icon of me to 5043
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5042
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=221 right=233 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 5042 / 5042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5042 then
    set icon of me to 5043
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5042
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=250 top=219 right=233 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 5046 / 5046
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5046 then
    set icon of me to 5047
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5046
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=269 top=219 right=234 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 5044 / 5044
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5044 then
    set icon of me to 5045
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5044
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=245 right=277 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 14471 / 14471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 14471 then
    set icon of me to 21219
    set icon of me to 26997
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 21219
    set icon of me to 14471
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=243 right=278 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 8670 / 8670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 8670 then
    set icon of me to 26625
    set icon of me to 961
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 26625
    set icon of me to 8670
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 40 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=217 top=275 right=298 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Î Í Ï
----- HyperTalk script -----
on mouseUp
  put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  put (item 3 of the rect of me) - (item 1 of the rect of me) into B
  put B/3 into C
  put A/C into D
  get trunc of D

  if it is 0 then
    visual scroll left very fast to gray
    visual scroll left very fast
    go to card id 8114
  end if
  if it is 1 then doMenu "Home"
  if it is 2 then
    visual scroll right very fast to gray
    visual scroll right very fast
    go to next card
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=311 top=192 right=236 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  Radio
----- HyperTalk script -----
on mouseUp
  global DeActivate
  lock
  if icon of me is 23519 then
    if DeActivate <> empty then set icon of DeActivate to 23519
    set icon of me to 3705
    put the name of me into DeActivate
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 23519
    --put instructions to be carried out when this switch is deactivated
  end if
  unlock
  play "Click"
end mouseUp


-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=160 right=194 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global DeActivate
  lock
  if icon of me is 23519 then
    if DeActivate <> empty then set icon of DeActivate to 23519
    set icon of me to 3705
    put the name of me into DeActivate
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 23519
    --put instructions to be carried out when this switch is deactivated
  end if
  unlock
  play "Click"
end mouseUp


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=129 right=163 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global DeActivate
  lock
  if icon of me is 23519 then
    if DeActivate <> empty then set icon of DeActivate to 23519
    set icon of me to 3705
    put the name of me into DeActivate
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 23519
    --put instructions to be carried out when this switch is deactivated
  end if
  unlock
  play "Click"
end mouseUp


-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=97 right=131 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global DeActivate
  lock
  if icon of me is 23519 then
    if DeActivate <> empty then set icon of DeActivate to 23519
    set icon of me to 3705
    put the name of me into DeActivate
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 23519
    --put instructions to be carried out when this switch is deactivated
  end if
  unlock
  play "Click"
end mouseUp


-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=217 right=235 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 5024 / 5024
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5024 then
    set icon of me to 5025
    play "Click"
    -- put instructions to be carried out when this switch is activated
  else
    set icon of me to 5024
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=366 top=217 right=235 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 5024 / 5024
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5024 then
    set icon of me to 5025
    play "Click"
    set icon of me to 5026
    play "Click"
    -- put instructions to be carried out when this switch is activated
  else
    set icon of me to 5025
    play "Click"
    set icon of me to 5024
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 47 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=349 top=96 right=146 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  Mom.
----- HyperTalk script -----
on mouseUp
  set icon of me to 3705
  play "Click"
  set icon of me to 23519
  play "Click"
  --put instructions to be carried out when this switch is activated
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=349 top=142 right=191 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 23519 / 23519
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  SPST
----- HyperTalk script -----
on mouseUp
  if icon of me is 23519 then
    set icon of me to 3705
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 23519
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=187 right=212 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 5033 / 5033
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 5033 then
    set icon of me to 5034
    play "Click"
    set icon of me to 5035
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5034
    play "Click"
    set icon of me to 5033
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp





-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=253 right=285 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 24571 / 24571
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 24571 then
    set icon of me to 22038
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 24571
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=253 right=285 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 5513 / 5513
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 5513 then
    set icon of me to 28412
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 5513
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 52 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=399 top=107 right=155 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 12145 / 12145
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 24657 then
    set icon of me to 12145
    play "Click"
    set the name of me to "ON"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 24657
    play "Click"
    set the name of me to "OFF"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=418 top=107 right=155 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 24657 / 24657
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OFF
----- HyperTalk script -----
on mouseUp
  if icon of me is 24657 then
    set icon of me to 12145
    play "Click"
    set the name of me to "ON"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 24657
    play "Click"
    set the name of me to "OFF"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=437 top=107 right=155 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 12145 / 12145
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  if icon of me is 24657 then
    set icon of me to 12145
    play "Click"
    set the name of me to "1"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 24657
    play "Click"
    set the name of me to "0"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=457 top=109 right=142 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 12145 / 12145
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 24657 then
    set icon of me to 12145
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 24657
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=398 top=157 right=197 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 7817 / 7817
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  ON
----- HyperTalk script -----
on mouseUp
  if icon of me is 28705 then
    set icon of me to 7817
    play "Click"
    set the name of me to " ON"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 28705
    play "Click"
    set the name of me to " OFF"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=152 right=170 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 14408 / 14408
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 1659 then
    set icon of me to 14408
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 1659
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp


-- part 59 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=201 right=218 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 4217 / 4217
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    set icon of me to 4217
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4218
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp


-- part 60 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=217 right=234 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 4219 / 4219
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    set icon of me to 4220
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4219
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 61 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=441 top=156 right=196 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 28705 / 28705
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  B - A
----- HyperTalk script -----
on mouseUp
  if icon of me is 28705 then
    set icon of me to 7817
    play "Click"
    set the name of me to " A - B"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 28705
    play "Click"
    set the name of me to " B - A"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=441 top=151 right=169 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 14408 / 14408
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 1659 then
    set icon of me to 14408
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 1659
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp





-- part 63 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=213 right=234 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 4215 / 4215
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    set icon of me to 4216
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4215
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=194 right=215 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 4216 / 4216
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    set icon of me to 4216
    play "Click"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4215
    play "Click"
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp


-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=401 top=252 right=285 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 4228 / 4228
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 4228 then
    set icon of me to 4225
    play "click"
    set icon of me to 4229
    play "click" fe
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4225
    play "click"
    set icon of me to 4228
    play "click" fe
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 66 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=442 top=252 right=285 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 4227 / 4227
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is 4226 then
    set icon of me to 4225
    play "click"
    set icon of me to 4227
    play "click" fe
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 4225
    play "click"
    set icon of me to 4226
    play "click" fe
    --put instructions to be carried out when this switch is deactivated
  end if
end mouseUp




-- part 68 (button)
-- low flags: 00
-- high flags: E004
-- rect: left=93 top=311 right=327 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=214 top=145 right=192 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 16693 / 16693
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OFF
----- HyperTalk script -----
on mouseEnter
  global locat1
  put loc of btn id 69 into locat1
  put "0,0" into locat2
  put random(512) into item 1 of locat2
  put random(342) into item 2 of locat2
  put the mouseLoc into Locat3
  show btn id 69 at locat2
  wait until item 1 of the mouseLoc <> (item 1 of locat3)
  show btn id 69 at locat1
end mouseEnter

on mouseUp
  if icon of me is 16693 then
    set icon of me to 6872
    play "Click"
    set name of me to "ON"
    --put instructions to be carried out when this switch is activated
  else
    set icon of me to 16693
    play "Click"
    set name of me to "OFF"
    --put instructions to be carried out when this switch is deactivated
  end if
  pass mouseUp
end mouseUp


-- part 72 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=26 top=98 right=115 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 10496
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if card field id 72 is "POWER ON" then
    put "POWER OFF" into card field id 72
    play "click"
    --instructions to be carried out when this switch is deactivated
  else
    put "POWER ON" into card field id 72
    play "click"
    --put instructions to be carried out when this switch is activated
  end if
end mouseUp


-- part contents for background part 56
----- text -----
pushbuttons and switches

-- part contents for background part 78
----- text -----
Prev Card: the button breeder

-- part contents for background part 79
----- text -----
Next Card: multi-icon buttons

-- part contents for background part 112
----- text -----
(Script Generator
(Script Tutor
(Smart Scripter
Script of Bkgnd...
Script of Button...
Script of Card...
Script of Field...
Script of Home Stack
Script of Stack...
Sliders
SoundEdit‚Ñ¢
Sounds - snd Resources
Speech Synthesis
Stack Space Available
Switches

-- part contents for card part 72
----- text -----
POWER OFF

-- part contents for background part 68
----- text -----
146,70

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 82
----- text -----
Free Space:

-- part contents for background part 83
----- text -----
73.03 K

-- part contents for background part 95
----- text -----
Blind Typing
Button Breeder
Button Font Changer
Buttons, Change Font, Create, Direction, Misc..., Multi-Icon, Push, Radio, Sliders, Switches, Toggle